home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2000-02_2000_CSW_Side_A.d64
/
calc. ram-size
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
668b
|
33 lines
1 rem ** calculate simm-size
2 rem ** by wolfram sang for go64!/cw
3 rem **
110 for i=0 to 4:read r(i),c(i):next i
115 :
120 t=peek(53883)
125 :
130 print"[147]$d27b(53883) returned:"t
131 if t>4 then print:print"no superramcard found!":end
135 :
140 print:print"simm-type:"r(t)"/"c(t)
145 :
150 nc=2^c(t)
160 print:print"number of cells: 2 ^"c(t)"="nc
165 :
170 lr=nc*4
180 print:print"length of a row:"nc"* 4 ="lr
185 :
190 nr=2^r(t)
200 print:print"number of rows: 2 ^"r(t)"="nr
205 :
210 b=lr*nr:mb=b/(1024*1024)
220 print:print"total:"lr"*"nr"="b"("mb"mb )"
230 end
997 :
998 rem simm-datas (row, column)
999 :
1000 data 9,9 : rem case t=0
1010 data 10,10: rem case t=1
1020 data 11,10: rem case t=2
1030 data 12,10: rem case t=3
1040 data 11,11: rem case t=4